Aminet 15/Aminet 15 - Nov 1996.iso/Aminet/game/role/jdl.lha/Installiere_JdL

Text File | 1996-09-05 | 13KB | 478 lines

; $VER: Installiere_JdL 1.3 (06.09.96)

; Dies ist mein erstes Installer-Skript...




(user 2)

(message (cat "Hy, dies ist das unter vielen Mühen entstandene Installationsskript für die Juwelen des Lichts.\n\n"
          "Gleich werden sie nach dem gewünschten Verhalten des Installationsprogramm gefragt,"
          "wo sie je nach Wissensstand über Ihren Amiga und den Zusatzinfos, die sie dort unter Hilfe (Help) erhalten, antworten sollen.\n\n"
          "(Übrigens, hat irgendwer eine brauchbare Dokumentation zum Installer? :-)"
     )
)


(message (cat "INFOS:\n"
        "\n Einsteiger/Novice-User:\n Hier muss man nur das Zielverzeichnis angeben, alle anderen Schritte werden automatisch"
        "ausgeführt. Dadurch wird eine teilweise Installation (d.h. ohne Sounds und Zusatzgraifken) durchgeführt, die sowohl auf eine Diskette als auch"
        "auf eine Festplatte möglich ist."
        "Zielverzeichnis nötig sind."
        "\n"
       )
)

(message (cat "INFOS:\n"
        "\n Geübter Benutzer/Intermediate-User:\n Hier muss man nur das Zielverzeichnis angeben und festlegen, ob man eine "
        "teilweise oder vollständige Installation wünscht. Die vollständige Installation ist nur bei"
        "Verwendung einer Festplatte sinnvoll, auf der ca. 1.5 MByte freier Platz benötigt werden."
        "Bei der vollständigen Installation werden die Sounds und Zusatzgrafiken kopiert."
        "\n"
        "\n Experte/Expert-User:\n Wie Intermediate-User, nur kann man hier noch zusätzlich einige Programmoptionen festlegen"
        "\n"
       )
)



; Trick, um kurzfristig auf anderen Level umschalten zu koennen
(set old_level @user-level)





; *********************************************************************
; * Abfrage, wo installiert werden soll
; *********************************************************************

(complete 0)

; Trick: Damit die Abfrage kommt, ist es noetig, auf einen hoeheren Level zu schalten
(user 2)

(set Zielverzeichnis @default-dest)


    (set Zielverzeichnis
         (askdir
         (prompt (cat "Wo soll das Spiel installiert werden?\n"
                  "(Ein neues Verzeichnis namens Juwelen_des_Lichts wird dort angelegt)"
             )
         )
         (help @askdir-help)
         (default Zielverzeichnis)
         )
    )


(set Installverz (tackon Zielverzeichnis "Juwelen_des_Lichts"))


; Trick: Wir schalten wieder zurueck
(user old_level)





; *********************************************************************
; * Abfrage, wie installiert werden soll
; *********************************************************************

(complete 1)

(set installmodus
  (askchoice (prompt (cat "\nDieses Skript installiert das Spiel -- Die Juwelen des Lichts --\n\n"
             "Es gibt zwei Installationsmöglichkeiten (genaueres im Hilfstext):\n"
             )
         )
         (help (cat "Die vollständige Installation kopiert das Hauptprogramm und die Zusatzdateien, "
               "nämlich die Zusatzgrafiken und die Sounds, in ein noch zu wählendes Verzeichnis."
               "Aufgrund der Größe der Dateien ist diese Einstellung nur bei der Installation "
               "auf einer Festplatte sinvoll. Benötigt werden ca. 1.5 MByte freien Platz auf der Festplatte."
               "\n\nBei der teilweisen Installation werden die Zusatzgrafiken und Sounds nicht kopiert "
               "und daher kann man mit dieser Einstellung auch auf einer Diskette installieren."
           )
         )
         (default 1
         )
         (choices "Vollständig installieren (nur HD)" "Teilweise installieren (HD oder Disk)")
  )
)



; *********************************************************************
; * Ist JdL im Zielverzeichnis schon installiert? Falls ja: Version testen
; *********************************************************************

; In dieses Verzeichnis soll JdL installiert werden - ist es dort schon?

(set datei (tackon Installverz "JdL"))
(if (exists datei (NOREQ))
    (
    ;*** Version testen: In Version steht nun die Zahl xyz, die sich
    ;***             aus der Version der Form x.yz ergibt

    ;*** Die Version des zu installierenden Programms
    (set datei "JdL")

    (set vernum (getversion datei))

    (set ver (/ vernum 65536))
    (set rev (- vernum (* ver 65536)))
    (set jdl_version (+ (* 100 ver) rev))


    ;*** Die Version des bereits installierten Programms
    (set datei (tackon Installverz "JdL"))

    (set vernum (getversion datei))

    (set ver (/ vernum 65536))
    (set rev (- vernum (* ver 65536)))
    (set version (+ (* 100 ver) rev))

    (if (> version jdl_version)
        (
        (message (cat "JdL ist in " Installverz " schon in der Version " version " installiert\n"
                  "Dieser Installer würde aber die ältere Version " jdl_version " installieren.\n"
                  "Das Skript wird daher abgebrochen."
             )
        )

        (exit (quiet))
        )
    )
    )
)


; *********************************************************************
; * Ist im Zielverzeichnis genug Platz fuer die gewuenschte Installation
; *********************************************************************

(if (= installmodus 0)
  (
    (set freierPlatz (getdiskspace Zielverzeichnis))


    (if (< freierPlatz 1500000)
      (
    (abort (cat "NICHT GENÜGEND PLATZ AUF \"" Zielverzeichnis "\" !!!\n"
            "Bei der vollständingen Installation werden mindestens 1.5 MByte"
            "freier Platz auf der Disk/Festplatte benötigt.\n"
            "Vorhandener Platz: " freierPlatz " Bytes"
           )
    )
      )
    )
  )
)



(if (= installmodus 1)
  (
    (set freierPlatz (getdiskspace Zielverzeichnis))


    (if (< freierPlatz 800000)
      (
    (abort (cat "NICHT GENÜGEND PLATZ AUF \"" Zielverzeichnis "\" !!!\n"
            "Bei der teilweisen Installation werden mindestens 0.8 MByte"
            "freier Platz auf der Disk/Festplatte benötigt.\n"
            "Vorhandener Platz: " freierPlatz " Bytes"
           )
    )
      )
    )
  )
)




; *********************************************************************
; * Unterverzeichnis in Zielverzeichnis anlegen
; *********************************************************************

(complete 2)

; Trick: Auch Intermediate-Usern wird diese Entscheidung erspart, daher
;     schalten wir kurzfristig zurueck
(if (= @user-level 1)
   (
    (user 0)
   )
)


  (makedir Installverz
;         (prompt "Ich lege nun das Verzeichnis \"" Installverz "\" an.")
;         (help @makedir-help)
;         (infos)
;         (confirm)
  )




; Trick: Wir schalten wieder zurueck
(user old_level)




; *********************************************************************
; * Abfrage, ob die Option Lowmem (Anlegen von Puffern) aktiviert
; * werden soll
; *********************************************************************

(complete 3)

; Trick: Auch Intermediate-Usern wird diese Entscheidung erspart, daher
;     schalten wir kurzfristig zurueck

(if (= @user-level 1)
  (
    (user 0)
  )
)


(set lowmem
  (askchoice (prompt (cat "\nDas Programm kann häufig benötigte Dateien vor dem Programmstart "
              "in einen Puffer kopieren und dadurch den Programmablauf beschleunigen.\n"
              "Diese Option ist eigentlich nur bei einer Installation auf Diskette sinnvoll."
             )
         )
         (help (cat "Die Puffer werden beim Programmstart angelegt und darin werden "
            "die Landkarte, die Stadtkarten, die Höhlenkarten und die Texte "
            "eingelesen um im Spielverlauf schneller verfügbar zu sein. "
            "Allerdings sollte diese Option beim Verwenden einer Festplatte unnötig sein."
           )
         )
         (default 0
         )
         (choices "Keine Puffer anlegen" "Puffer anlegen")
  )
)


; Trick: Wir schalten wieder zurueck
(user old_level)




; *********************************************************************
; * Konfigurationsfile anlegen
; *********************************************************************
(complete 5)

(working)

(set text1 "* Dies ist eine automatisch erzeugte Konfigurationsdatei fuer die Juwelen des Lichts\n")



; *********************************************************************
; * Puffer-Option im Konfigurationsfile aktivieren
; *********************************************************************
(working)
(set text2 "* Es werden keine Puffer angelegt\n")

(if (= lowmem 0)
  (
   (set text2 "* Keine Puffer anlegen\n#Lowmem\n")
  )
)




; *********************************************************************
; * Bei vollstaendiger Installation die Grafiken und optional die
; * Sounds im Konfigurationsfile aktivieren
; *********************************************************************

(working)
(set text3 "* Zusatgrafiken/Verbesserte Grafiken sind nicht aktiviert\n")
(set text4 "* Sound ist deaktiviert\n")
(set text5 "* Das Speichern der Automappingkarten ist deaktiviert\n")

(if (= installmodus 0)
  (
   (set text3 "* Zusatgrafiken/Verbesserte Grafiken aktivieren\n#Extended\n")

   ; *** Das aktivieren der Sounds ist optional
   (complete 8)

   ; Trick: Auch Intermediate-Usern wird diese Entscheidung erspart, daher
   ;        schalten wir kurzfristig zurueck
   (if (= @user-level 1)
     (
       (user 0)
     )
   )

   (set sound
     (askchoice (prompt (cat "\nDie Zusatzoption Sound wird standardmässig aktiviert."
                 "Hierzu wird die MedPlayer.Library verwendet, die, so wurde mir berichtet,"
                 "in sehr seltenen Fällen beim Start des Programms zu einem Absturz führen kann.\n"
                 "\nEmpfehlung: Die Sounds installieren und ausprobieren. Sollte es Probleme "
                 "geben, dann nochmals mit deaktivierter Option installieren."
            )
        )
        (help (cat "Wie gesagt, dieser Fehler ist mir bisher nur einmal "
               "berichtet worden - auf meinem Rechner gab es noch nie Probleme."
              )
        )
        (default 1
        )
        (choices "Keine Sounds" "Sounds aktivieren")
     )
   )


   (if (= sound 1)
     (
      (working)
      (set text4 "* Sound aktivieren\n#Sound\n")
     )
   )


   (set dkarten
     (askchoice (prompt (cat "\nDie Zusatzoption 'Automappingkarten speichern' wird standardmässig NICHT aktiviert."
                 "Durch Aktivieren dieser Option werden die während des Spiels vom Programm"
                 "gezeichneten Dungeonkarten gespeichert und stehen bei späteren Spielen"
                 "wieder zur Verfügung. Allerdings benötigt man bis zu 200 KByte mehr Speicherplatz"
                 "auf der Floppy/Harddisk."
            )
        )
        (help (cat "Wer sich den Speicherplatz leisten kann, der sollte es tun..."
              )
        )
        (default 0
        )
        (choices "Karten NICHT speichern" "Karten speichern")
     )
   )


   (if (= dkarten 1)
     (
      (working)
      (set text5 "* Speichern der Automappingkarten aktivieren\n#DKarte=Dungeonkarten/\n")

      (set Kartenverz (tackon Installverz "Dungeonkarten"))

      (makedir Kartenverz
;         (prompt "Ich lege nun das Verzeichnis \"" Kartenverz "\" an. Hierin werden die Automappingkarten gespeichert.")
;         (help @makedir-help)
;         (infos)
;         (confirm)
      )


     )
   )

  )

)

; Trick: Wir schalten wieder zurueck
(user old_level)



(set Konfigdatei (tackon Installverz "JdL.cnf"))

(set Konfigdateitext (cat text1 text2 text3 text4 text5))
(textfile (dest Konfigdatei) (append Konfigdateitext) (safe))


; *********************************************************************
; * Libraries installieren
; *  - Die iff.library wird nur installiert, wenn Vollstaendige
; *    Installation gewaehlt wurde
; *  - Die medplayer.library wird nur installiert, wenn Vollstaendige
; *    Installation gewaehlt wurde UND die Sounds aktiviert sind
; *********************************************************************

(complete 15)

; Trick: Damit die Abfrage kommt, ist es noetig, auf einen hoeheren Level zu schalten
(user 2)

(if (= installmodus 0)
  (
   ; *** iff.library installieren
   (copylib (prompt "Installiere die iff.library nach LIBS:\nDiese Bibliothek wird für die Grafiken benötigt.") (help "Was soll man hier erklären...\n") (source "libs/iff.library") (dest "libs:") (safe) (confirm) )
   (working)

    (if (= sound 1)
       (
    ; *** medplayer.library installieren
    (copylib (prompt "Installiere die medplayer.library nach LIBS:\nDiese Bibliothek wird für die Sounds benötigt.") (help "Was soll man hier erklären...\n") (source "libs/medplayer.library") (dest "libs:") (safe) (confirm) )
    (working)
       )
    )
  )

)

; Trick: Wir schalten wieder zurueck
(user old_level)


; *********************************************************************
; * Entpacken der Archive
; *  - Das Archiv jdl_1.lha wird immer entpackt
; *  - Das Archiv jdl_2.lha wird nur bei vollstaendiger Installation
; *    entpackt
; *********************************************************************


(complete 30)
(working)

(makeassign "jdltemp")
(makeassign "jdltemp" Installverz)


(copyfiles (source "Jdl") (dest "jdltemp:") (infos) (files) (safe)
)

(complete 40)
(working)

(run "lha -a -x x jdl_1.lha #? jdltemp:")

(complete 70)
(working)

; Was wurde ausgewaehlt?

(if (= installmodus 0)
  (
   ;**** Alles entpacken
   (working)

   (run "lha -a -x x jdl_2.lha #? jdltemp:")

  )
)

; *** Den assign wieder aufheben
(makeassign "jdltemp")

(complete 100)